home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / varie / charmap / install français < prev    next >
Encoding:
Text File  |  1992-12-04  |  8.3 KB  |  258 lines
  1. ; $VER:Installation script for CharMap
  2. ; Author: Adapted from Michael Link's script
  3. ; Begin       : 19/11/99
  4.  
  5. ; Let's begin with the installer script's messages:
  6. (set DIRHELP (cat
  7.         "Vous devez entrez le nom d'un répertoire où sera installé\n"
  8.         @app-name "\n\n"
  9.         "Si vous voulez que cet outil soit disponible à tout moment\n"
  10.         "à chaque redémarrage de la machine, entrez comme nom de\n"
  11.         "répertoire \"SYS:WBStartup\", ce qui est le répertoire par\n"
  12.         "défaut. Vous pouvez aussi entrez \"SYS:Tools/Commodities\",\n"
  13.         "si vous ne voulez l'utilisez que de temps en temps ou alors\n"
  14.         "si vous voulez le lancer depuis l'user-startup.\n"
  15.     )
  16. )
  17.  
  18. (set M_WELCOME    (cat
  19.         "Bienvenu dans l'installation de " @app-name "v1.4. Ce petit utilitaire\n"
  20.         "permet d'afficher tous les caractères une police sous forme de table."
  21.     )
  22. )
  23.  
  24. (set DIR_REQUEST (cat "Entrez le répertoire de destination pour installer " @app-name))
  25.  
  26. (set CHARSET_HELP (cat    "Le jeu de caractère indique combien de caractères seront\n"
  27.             "affichés au démarrage, parmis:\n"
  28.             "   · Défaut: Le programme détermine le jeu de caractère le mieux adapté\n"
  29.             "   · ASCII 8bits: tous les caractères de 0 à 255\n"
  30.             "   · ISO Latin1: Les caractères de 32 à 255 seulement\n"
  31.             "   · Standard amiga: Pareil que ISO-latin1, avec les caractères 127 à 159 en moins"
  32.             "\n\nEn fait certaines polices (XHelvetica entre autres)\n"
  33.             "définissent tous les caractères de 0 à 255. Ces caractères\n"
  34.             "encombrent inutilement l'écran, on peut alors forcer le\n"
  35.             "démarrage de l'appli avec un jeu de caractère particulier."
  36.     )
  37. )
  38.  
  39. (set GEOMETRY_HELP (cat    "Ce tool-type définit la position de la fenêtre principale\n"
  40.             "et celle minimisée. Ce paramètre est en fait une liste de\n"
  41.             "nombres signés, séparés par des virgules. Les deux premiers\n"
  42.             "sont la position de la fenêtre principale et les deux suivants\n"
  43.             "correspondent à la position minimisée. Si rien n'est entré\n"
  44.             "la position sera centrée sur l'écran. Des nombres négatifs\n"
  45.             "peuvent être entrés, et dans ce cas, la position se réfère\n"
  46.             "au bord opposé, auquel elle fait référence normallement."
  47.     )
  48. )
  49.  
  50. (set STARTUP_HELP  (cat    "Vous pouvez lancer ce logiciel directement depuis l'user-\n"
  51.             "startup. Dans ce cas une entrée du genre y sera insérée:\n"
  52.             "; BEGIN " @app-name "\n"
  53.             "Run >NIL: " @app-name " CX_POPUP=NO ...\n"
  54.             "; END " @app-name "\n"
  55.             "Les paramètres restant seront ceux que vous aurez bien\n"
  56.             "évidemment choisit.\n"
  57.             "Sinon vous pouvez aussi utiliser un lancement automatique\n"
  58.             "par le Workbench, en le mettant dans le répertoire\n"
  59.             "WBStartup ou enfin si vous ne voulez que le lancer de\n"
  60.             "temps en temps, placez-le dans un répertoire comme C:\n"
  61.             "ou SYS:Tools/Commodities."
  62.     )
  63. )
  64.  
  65. (set WHICH_STARTUP (cat    "De quelle manière voulez-vous lancer cette commodité?"))
  66.  
  67. (set WHICH_HOTKEY (cat    "\n\nAvec quelle combinaison de touche, la fenêtre\n"
  68.             "sera réouverte si elle a été cachée ?\n"
  69.             "Changer-la, si elle est déjà utilisée par une autre\n"
  70.             "commodité, comme par exemple CrossDos ou Copper-Demon..."
  71.     )
  72. )
  73.  
  74. (set WHICH_CHARSET    "Quel jeu de caractère voulez-vous voir au démarrage?")
  75.  
  76. (set WHICH_GEOMETRY    "Quel sera la position initiale des fenêtres?")
  77.  
  78. (set WHICH_CATALOG    "\nQuel langage doit être installé ? (dans LOCALE:)\n")
  79.  
  80. (set MSG_COPYLANG    "Copie du catalogue ")
  81.  
  82. ; Default values:
  83. (set DEF_DESTDIR    "SYS:WBStartup")
  84. (set DEF_HOTKEY        "ctrl lalt c")
  85. (set DEF_GEOMETRY    ",,,")
  86. (set DEF_CHARSET    "0")
  87.  
  88. (set vernum (getversion "locale.library" (resident)))
  89. (set ver (shiftright vernum 16))
  90.  
  91. ;
  92. ; Here is the screen where the user's skill is controlled:
  93. ;
  94.  
  95. (welcome M_WELCOME)
  96.  
  97. ; ***********************************************************************
  98. ; *                                                                     *
  99. ; * Request for the destination file (usually user-startup)             *
  100. ; *                                                                     *
  101. ; ***********************************************************************
  102.  
  103. ; Only for expert!
  104. (if (< @user-level 2)
  105.     (set AUTO 0)
  106. (    (set DF_BITS (askchoice (prompt WHICH_STARTUP)
  107.                 (help STARTUP_HELP)
  108.                 (choices "User-Startup"
  109.                      "Répertoire WBStartup"
  110.                      "Autre répertoire")
  111.                 (default 0)
  112.              )
  113.     )
  114.     ; Place the prog. automatically in WBStartup drawer:
  115.     (set AUTO (= DF_BITS 1))
  116.     ; If the user want to launch it from user-startup, install tool in C:
  117.     (if (= DF_BITS 0) (set DEF_DESTDIR "C:"))
  118.     ; If the user doesn't whant to launch at every boot:
  119.     (if (= DF_BITS 2) (set DEF_DESTDIR "SYS:Tools/Commodities"))
  120. ))
  121.  
  122. ; ***********************************************************************
  123. ; *                                                                     *
  124. ; * Request for the destination directory                               *
  125. ; *                                                                     *
  126. ; ***********************************************************************
  127.  
  128. ; For novice set directory to WBStartup:
  129. (if (= AUTO 0)
  130.     (if (= @user-level 0)
  131.         (set DIR DEF_DESTDIR)
  132.         (set DIR (askdir (prompt DIR_REQUEST)
  133.                  (help DIRHELP)
  134.                  (default DEF_DESTDIR)
  135.              )
  136.         )
  137.     )
  138.     (set DIR DEF_DESTDIR)
  139. )
  140.  
  141. (set @default-dest DIR)
  142.  
  143.  
  144. ; ***********************************************************************
  145. ; *                                                                     *
  146. ; * Asking for the tool-types                                           *
  147. ; *                                                                     *
  148. ; ***********************************************************************
  149.  
  150. ; * HOTKEY *
  151. (if (= @user-level 0)
  152.     (set HOTKEY DEF_HOTKEY)
  153.  
  154.     (set HOTKEY (askstring    (prompt WHICH_HOTKEY)
  155.                 (help @askstring-help)
  156.                 (default DEF_HOTKEY)
  157.             )
  158.     )
  159. )
  160.  
  161. ; * CHARSET *
  162. (if (= @user-level 0)
  163.     (set CHARSET DEF_CHARSET)
  164.  
  165. (    (set CS_BITS (askchoice (prompt WHICH_CHARSET)
  166.                 (help CHARSET_HELP)
  167.                 (choices "ASCII 8bits    (256 caractères)"
  168.                      "ISO Latin1     (224)"
  169.                      "Standard Amiga (192)"
  170.                      "Défaut         (Dépend de la police)")
  171.                 (default 1)
  172.              )
  173.     )
  174.     (if (= CS_BITS 0) (set CHARSET "1"))
  175.     (if (= CS_BITS 1) (set CHARSET "2"))
  176.     (if (= CS_BITS 2) (set CHARSET "3"))
  177.     (if (= CS_BITS 3) (set CHARSET "0"))
  178. ))
  179.  
  180. ; * GEOMETRY (only for expert!) *
  181. (if (< @user-level 2)
  182.     (set GEOMETRY DEF_GEOMETRY)
  183.     (set GEOMETRY (askstring (prompt WHICH_GEOMETRY) )
  184.                  (help GEOMETRY_HELP)
  185.                  (default DEF_GEOMETRY)
  186.               )
  187.     )
  188. )
  189.  
  190. (tooltype (prompt "Écriture des tool-types ...")
  191.       (help)
  192.       (dest @app-name)
  193.       (settooltype "HOTKEY"   HOTKEY)
  194.       (settooltype "CHARSET"  CHARSET)
  195.       (settooltype "GEOMETRY" GEOMETRY)
  196. )
  197.  
  198. (if (= DF_BITS 0)
  199. (    ; The user want to launch it via startup script
  200.     ; Don't copy icon and modify user-startup:
  201.     (copyfiles (prompt (cat "Copie de " @app-name " vers " DIR))
  202.            (help @copyfiles-help)
  203.            (source @app-name)
  204.            (dest DIR)
  205.     )
  206.     ; Modify the startup script:
  207.     (set STR_COMMAND (cat "Run >NIL: " @app-name "CX_POPUP=NO CHARSET=" CHARSET " GEOMETRY=" GEOMETRY " HOTKEY=\"" HOTKEY "\"\n"))
  208.     (startup @app-name
  209.         (prompt (cat "Insertion de la commande\n" STR_COMMAND "dans le fichier S:User-Startup"))
  210.         (help STARTUP_HELP)
  211.         (command STR_COMMAND)
  212.     )
  213. )
  214.     (copyfiles (prompt (cat "Copie de " @app-name " vers " DIR))
  215.            (help @copyfiles-help)
  216.            (source @app-name)
  217.            (dest DIR)
  218.            (infos)
  219.     )
  220. )
  221.  
  222. ; ***********************************************************************
  223. ; *                                                                     *
  224. ; * Installation of the catalogs                                        *
  225. ; *                                                                     *
  226. ; ***********************************************************************
  227.  
  228. (if (>= ver 38)
  229.     (
  230.         (set DEF_LANG 0)
  231.     (if (= @language "français") (set DEF_LANG 1))
  232.     (if (= @language "deutsch")  (set DEF_LANG 2))
  233.     (if (= @user-level 0)
  234.         (set CATALOGS (if (= DEF_LANG 0) 0 (shiftleft 1 (- DEF_LANG 1))))
  235.         (set CATALOGS (askoptions (prompt WHICH_CATALOG)
  236.                       (help)
  237.                       (choices "Français" "Deutsch")
  238.                       (default DEF_LANG)
  239.                   )
  240.         )
  241.     )
  242.     (if (BITAND CATALOGS 1)
  243.         (copyfiles (prompt (cat MSG_COPYLANG "Français..."))
  244.                    (help)
  245.                    (source "catalogs/français/CharMap.catalog")
  246.                    (dest   "LOCALE:Catalogs/français")
  247.         )
  248.     )
  249.     (if (BITAND CATALOGS 2)
  250.         (copyfiles (prompt (cat MSG_COPYLANG "Allemand..."))
  251.                    (help)
  252.                    (source "catalogs/deutsch/CharMap.catalog")
  253.                    (dest   "LOCALE:Catalogs/deutsch")
  254.         )
  255.     )
  256.     )
  257. )
  258.